home *** CD-ROM | disk | FTP | other *** search
/ Golf Digest's Best Places to Play / Golf Digest's Best Places to Play.iso / diamond / dbrs_ibm.dir / 00036_Script_JourneyScript < prev    next >
Text File  |  1995-05-15  |  1KB  |  42 lines
  1. on exitFrame
  2.   go to marker(0)+4
  3. end
  4.  
  5. on mouseDown
  6.   set ButtonNum=the clickOn
  7.   if ButtonNum>0 then
  8.     set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  9.     if (ButtonNum >1) and (ButtonNum < 5) then
  10.       WhatPick(ButtonNum)  
  11.     end if
  12.     if chars(ButtonName,1,6) = "ToMain" then
  13.       if PressBtn(ButtonNum) then
  14.         AllPuppetsOff
  15.         go to marker(0)+5
  16.       end if
  17.     end if
  18.     if chars(ButtonName,1,4) = "Help" then
  19.       if PressBtn(ButtonNum) then
  20.         showHelp
  21.         puppetsprite ButtonNum, true
  22.         set the castNum of sprite ButtonNum to the number of cast (ButtonName)
  23.         puppetsprite ButtonNum, false
  24.       end if
  25.     end if
  26.   end if
  27. end mouseDown
  28.  
  29. on WhatPick ButtonNum
  30.   puppetsound 0
  31.   set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  32.   repeat with i=2 to 4
  33.     puppetSprite i, false
  34.   end repeat
  35.   updateStage
  36.   puppetSprite ButtonNum, true
  37.   puppetSprite 5, true
  38.   set the castNum of sprite ButtonNum to the number of cast (ButtonName & "Down")
  39.   updateStage
  40.   set the castNum of sprite 5 to the number of cast (ButtonName & "Big")
  41.   updateStage
  42. end WhatPick